
/*
+----------------------------------------------------------------------------+
!                             FICHA TECNICA DO PROGRAMA                      !
+----------------------------------------------------------------------------+
!Programa          ! F050CV4                                                 !
+------------------+---------------------------------------------------------+
!Descricao         ! Ponto de Entrada no final da gravacao das informacoes   !
!                  ! do Rateio efetuado a partir de um rateio pre-configu-   !
!                  ! rado ou digitado pelo usuario. - Funcao GravaCv4        !
+------------------+---------------------------------------------------------+
!Autor             ! TSC195 - Gustavo Schepp                                 !
+------------------+---------------------------------------------------------+
!Campos Necessarios! CTJ_ZPROJE - Tipo Caracter / Tam 10 / Brw-Usd           !
!                  ! CV4_ZPROJE - Tipo Caracter / Tam 10 / Brw-Usd           !
+------------------+---------------------------------------------------------+
!Data de Criacao   ! 07/12/10                                                !
+------------------+---------------------------------------------------------+
!   ATUALIZACOES                                                             !
+-------------------------------------------+-----------+-----------+--------+
!   Descricao detalhada da atualizacao      !Nome do    ! Analista  !Data da !
!                                           !Solicitante! Respons.  !Atualiz.!
+-------------------------------------------+-----------+-----------+--------+
!                                           !           !           !        !
!                                           !           !           !        !
+-------------------------------------------+-----------+-----------+--------+
*/

User Function F050CV4
	// grava campo do projeto
	If CV4->(FieldPos("CV4_ZPROJE")) > 0
		RecLock("CV4",.f.)
    	CV4->CV4_ZPROJE := TMP->CTJ_ZPROJE
		MsUnlock()
	EndIf 
Return